home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / ROCK14.lha / bossflo.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-24  |  1KB  |  56 lines
  1. /*
  2.              Rock v1.3 - Fidonet mailer for point systems
  3.                  Copyright (C) 1995  Jean-Marc Xiume'
  4.          This software is distributed under the terms of the
  5.     GNU General Public License. Read "license.doc" for more details.
  6.  
  7. ****** Concatenate the *.FLO files of the boss' different nets
  8.                     in a single file named with the main address ******
  9. */
  10.  
  11. options results
  12. options failat 99
  13.  
  14. Parse upper arg od .
  15.  
  16.  
  17. if ~open('cfg',"rock:rock.cfg",'R') then exit 1
  18.  
  19. i=0
  20. j=0
  21.  
  22. do while ~eof('cfg')
  23.   L=Upper(strip(ReadLn('cfg'),'B'))
  24.   if left(L,7) ~= "SET NET" then iterate
  25.  
  26.   j=j+1
  27.   parse var L "SET NET" i " " z.i ":" n.i "/" f.i "." p.i .
  28.  
  29.   if i ~= j then do
  30.     say "* Error in rock.cfg (NETS) : net numbers are not consecutive"
  31.     exit 2
  32.   end
  33. end
  34.  
  35. v=close('cfg')
  36.  
  37. if i=0 then do
  38.   say "* No nets found in rock.cfg (NETS)"
  39.   exit 3
  40. end
  41. if i=1 then exit 0
  42.  
  43. j=2
  44. mflo = od||z.1'.'n.1'.'f.1'.'p.1'.FLO'
  45.  
  46. do while j <= i
  47.   cflo = od||z.j'.'n.j'.'f.j'.'p.j'.FLO'
  48.   if exists(cflo) then do
  49.     address COMMAND "type "cflo ">>" mflo
  50.     address COMMAND "delete >NIL: "cflo
  51.   end
  52.   j=j+1
  53. end
  54.  
  55. exit 0
  56.